home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Applications 2002 November / SGI IRIX 6.5 Applications 2002 November.iso / dist / gateway.idb / usr / WebFace / Source / 20-NetworkServices / rsvp / rstat.frm.z / rstat.frm
Encoding:
Text File  |  2002-06-12  |  2.8 KB  |  88 lines
  1. #!/usr/bin/perl5
  2. #
  3. # rstat.frm
  4. #
  5. # Copyright 1988-1996 Silicon Graphics, Inc.
  6. # All rights reserved.
  7. #
  8. # This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  9. # the contents of this file may not be disclosed to third parties, copied or
  10. # duplicated in any form, in whole or in part, without the prior written
  11. # permission of Silicon Graphics, Inc.
  12. #
  13. # RESTRICTED RIGHTS LEGEND:
  14. # Use, duplication or disclosure by the Government is subject to restrictions
  15. # as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  16. # and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  17. # successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  18. # rights reserved under the Copyright Laws of the United States.
  19. #
  20. # $Id: rstat.frm,v 1.3 1998/02/11 23:20:45 jrw Exp $
  21.  
  22. BEGIN { require "/usr/WebFace/lib/CGI.pm"; import CGI; }
  23. require "/usr/OnRamp/lib/OnRamp.pm";
  24.  
  25. $title = "Show RSVP Sessions";
  26.  
  27. $query = new CGI;
  28.  
  29. print $query->header;
  30. &title_block($title);
  31.  
  32. sub error {
  33.     &error_block($_[0]);
  34.     print $query->end_html;
  35.     system("/sbin/rm", "-f", $dummy);
  36.     exit 0;
  37. } 
  38.  
  39. &header_block($title);
  40.  
  41. if (! -e "/usr/etc/rstat")
  42. {
  43.     print "<i>The RSVP session tool (rstat) is available on "
  44.         . "IRIX versions 6.5 and higher.  For information "
  45.         . "about upgrading to IRIX 6.5, please contact your "
  46.         . "local Silicon Graphics sales representative.</i>\n"
  47.         . "</body></html>\n";
  48.     exit 0;
  49. }
  50.  
  51. open (RSTAT, "/usr/etc/rstat -p |") || &error("Can't get session status.");
  52. @sessions = <RSTAT>;
  53. close(RSTAT);
  54.  
  55. if ($#sessions == 0) {
  56.        &error("RSVP is not enabled.");
  57. } elsif ($#sessions == 1) {
  58.        print qq|<p><br><br><font size=4>There are currently no 
  59.                 sessions to view.</font>|;
  60. } else {
  61.  
  62.     for ($i = 0; $i <= $#sessions; $i++) {
  63.         $line = $sessions[$i];
  64.             chop($line);
  65.         if ($line =~ /^\s*$/) {
  66.             print $line;
  67.         } elsif ($line =~ /^Iface/) {
  68.             print "<center><table cellpadding=5 width=450 border=2>\n";
  69.             print "<tr><th>Interface<th>Type<th>Session", 
  70.                   "<th>Sender<th>Neighbor</tr>\n";
  71.         } elsif ($line =~ /^\s+\>\>/) {
  72.             print "<tr><td colspan=5 align=right>$line</tr>\n";
  73.         } elsif ($line =~ /^-- Path --/) {
  74.            ($tmp,$tmp,$tmp,$session,$sender,$neighbor) = split(/\s+/, $line);
  75.             print "<tr align=center><td colspan=2>-- Path --<td>$session", 
  76.                   "<td>$sender<td>$neighbor</tr>\n";
  77.         } else {
  78.            ($iface,$type,$session,$sender,$neighbor) = split(/\s+/, $line);
  79.             print "<tr align=center><td>$iface<td>$type<td>$session", 
  80.                   "<td>$sender<td>$neighbor</tr>\n";
  81.         }
  82.     }
  83.     print "</table></center><br>\n";
  84. }
  85.  
  86. print $query->end_html;
  87.  
  88.